home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 September (Japanese) / CICA Shareware for Windows CD-ROM (Walnut Creek) (September 1995) (Japanese) (Disc 2).iso / disc2 / programr / vbasic / loanapp.exe / LOANF10.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-22  |  9.1 KB  |  286 lines
  1. VERSION 2.00
  2. Begin Form Form10 
  3.    BackColor       =   &H00808080&
  4.    ClientHeight    =   3300
  5.    ClientLeft      =   300
  6.    ClientTop       =   2160
  7.    ClientWidth     =   8880
  8.    ControlBox      =   0   'False
  9.    Height          =   3705
  10.    Left            =   240
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form10"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3300
  16.    ScaleWidth      =   8880
  17.    Top             =   1815
  18.    Width           =   9000
  19.    Begin CommandButton Command3 
  20.       Caption         =   "Cancel"
  21.       Height          =   300
  22.       Left            =   4995
  23.       TabIndex        =   16
  24.       Top             =   2805
  25.       Width           =   3000
  26.    End
  27.    Begin CommandButton Command1 
  28.       Caption         =   "Ok"
  29.       Height          =   300
  30.       Left            =   885
  31.       TabIndex        =   15
  32.       Top             =   2805
  33.       Width           =   3000
  34.    End
  35.    Begin PictureBox Picture5 
  36.       Height          =   600
  37.       Left            =   45
  38.       ScaleHeight     =   570
  39.       ScaleWidth      =   4140
  40.       TabIndex        =   12
  41.       Top             =   2010
  42.       Width           =   4170
  43.       Begin VBedit BEditF10 
  44.          CellHeight      =   480
  45.          CellWidth       =   360
  46.          CharSet         =   16652
  47.          CombBaseLine    =   390
  48.          CombEndHeight   =   120
  49.          CombEndMarker   =   0   'False
  50.          CombHeight      =   60
  51.          FontBold        =   -1  'True
  52.          FontItalic      =   0   'False
  53.          FontName        =   "MS Sans Serif"
  54.          FontSize        =   9.75
  55.          FontStrikethru  =   0   'False
  56.          FontUnderline   =   0   'False
  57.          Height          =   495
  58.          Index           =   5
  59.          InflateBottom   =   180
  60.          InflateLeft     =   180
  61.          InflateRight    =   180
  62.          InflateTop      =   240
  63.          Left            =   2910
  64.          TabIndex        =   14
  65.          Top             =   30
  66.          Version         =   268435458
  67.          Width           =   1185
  68.       End
  69.       Begin Label Label5 
  70.          Caption         =   "Number of years at this address:"
  71.          Height          =   210
  72.          Left            =   105
  73.          TabIndex        =   13
  74.          Top             =   240
  75.          Width           =   2835
  76.       End
  77.    End
  78.    Begin PictureBox Picture4 
  79.       Height          =   900
  80.       Left            =   6840
  81.       ScaleHeight     =   870
  82.       ScaleWidth      =   1965
  83.       TabIndex        =   3
  84.       Top             =   1035
  85.       Width           =   1995
  86.       Begin VBedit BEditF10 
  87.          CellHeight      =   480
  88.          CellWidth       =   360
  89.          CharSet         =   16652
  90.          CombBaseLine    =   390
  91.          CombEndHeight   =   120
  92.          CombEndMarker   =   0   'False
  93.          CombHeight      =   60
  94.          FontBold        =   -1  'True
  95.          FontItalic      =   0   'False
  96.          FontName        =   "MS Sans Serif"
  97.          FontSize        =   9.75
  98.          FontStrikethru  =   0   'False
  99.          FontUnderline   =   0   'False
  100.          Height          =   495
  101.          Index           =   4
  102.          InflateBottom   =   180
  103.          InflateLeft     =   180
  104.          InflateRight    =   180
  105.          InflateTop      =   240
  106.          Left            =   45
  107.          TabIndex        =   11
  108.          Top             =   345
  109.          Version         =   268435458
  110.          Width           =   1875
  111.       End
  112.       Begin Label Label4 
  113.          Caption         =   "Zip Code:"
  114.          Height          =   210
  115.          Left            =   45
  116.          TabIndex        =   10
  117.          Top             =   45
  118.          Width           =   900
  119.       End
  120.    End
  121.    Begin PictureBox Picture3 
  122.       Height          =   900
  123.       Left            =   5850
  124.       ScaleHeight     =   870
  125.       ScaleWidth      =   885
  126.       TabIndex        =   2
  127.       Top             =   1035
  128.       Width           =   915
  129.       Begin VBedit BEditF10 
  130.          CellHeight      =   480
  131.          CellWidth       =   360
  132.          CharSet         =   16651
  133.          CombBaseLine    =   390
  134.          CombEndHeight   =   120
  135.          CombEndMarker   =   0   'False
  136.          CombHeight      =   60
  137.          FontBold        =   -1  'True
  138.          FontItalic      =   0   'False
  139.          FontName        =   "MS Sans Serif"
  140.          FontSize        =   9.75
  141.          FontStrikethru  =   0   'False
  142.          FontUnderline   =   0   'False
  143.          Height          =   495
  144.          Index           =   3
  145.          InflateBottom   =   180
  146.          InflateLeft     =   180
  147.          InflateRight    =   180
  148.          InflateTop      =   240
  149.          Left            =   45
  150.          TabIndex        =   9
  151.          Top             =   360
  152.          Version         =   268435458
  153.          Width           =   795
  154.       End
  155.       Begin Label Label3 
  156.          Caption         =   "State:"
  157.          Height          =   240
  158.          Left            =   45
  159.          TabIndex        =   8
  160.          Top             =   45
  161.          Width           =   570
  162.       End
  163.    End
  164.    Begin PictureBox Picture2 
  165.       Height          =   900
  166.       Left            =   45
  167.       ScaleHeight     =   870
  168.       ScaleWidth      =   5700
  169.       TabIndex        =   1
  170.       Top             =   1035
  171.       Width           =   5730
  172.       Begin VBedit BEditF10 
  173.          CellHeight      =   480
  174.          CellWidth       =   360
  175.          CharSet         =   16651
  176.          CombBaseLine    =   390
  177.          CombEndHeight   =   120
  178.          CombEndMarker   =   0   'False
  179.          CombHeight      =   60
  180.          FontBold        =   -1  'True
  181.          FontItalic      =   0   'False
  182.          FontName        =   "MS Sans Serif"
  183.          FontSize        =   9.75
  184.          FontStrikethru  =   0   'False
  185.          FontUnderline   =   0   'False
  186.          Height          =   495
  187.          Index           =   2
  188.          InflateBottom   =   180
  189.          InflateLeft     =   180
  190.          InflateRight    =   180
  191.          InflateTop      =   240
  192.          Left            =   45
  193.          TabIndex        =   7
  194.          Top             =   315
  195.          Version         =   268435458
  196.          Width           =   5610
  197.       End
  198.       Begin Label Label2 
  199.          Caption         =   "City:"
  200.          Height          =   255
  201.          Left            =   45
  202.          TabIndex        =   6
  203.          Top             =   45
  204.          Width           =   435
  205.       End
  206.    End
  207.    Begin PictureBox Picture1 
  208.       Height          =   900
  209.       Left            =   45
  210.       ScaleHeight     =   870
  211.       ScaleWidth      =   8760
  212.       TabIndex        =   0
  213.       Top             =   60
  214.       Width           =   8790
  215.       Begin VBedit BEditF10 
  216.          CellHeight      =   480
  217.          CellWidth       =   360
  218.          CombBaseLine    =   390
  219.          CombEndHeight   =   120
  220.          CombEndMarker   =   0   'False
  221.          CombHeight      =   60
  222.          FontBold        =   -1  'True
  223.          FontItalic      =   0   'False
  224.          FontName        =   "MS Sans Serif"
  225.          FontSize        =   9.75
  226.          FontStrikethru  =   0   'False
  227.          FontUnderline   =   0   'False
  228.          Height          =   495
  229.          Index           =   1
  230.          InflateBottom   =   180
  231.          InflateLeft     =   180
  232.          InflateRight    =   180
  233.          InflateTop      =   240
  234.          Left            =   45
  235.          TabIndex        =   5
  236.          Top             =   330
  237.          Version         =   268435458
  238.          Width           =   8670
  239.       End
  240.       Begin Label Label1 
  241.          Caption         =   "Address:"
  242.          Height          =   210
  243.          Left            =   45
  244.          TabIndex        =   4
  245.          Top             =   45
  246.          Width           =   1725
  247.       End
  248.    End
  249. Sub BEditF10_LostFocus (Index As Integer)
  250.     If Index = 3 Then
  251.         Form10.BEditF10(3).Text = UCase$(Form10.BEditF10(3).Text)
  252.     End If
  253. End Sub
  254. Sub Command1_Click ()
  255.     Select Case AddressBox
  256.         Case 1
  257.             MainRec.B.B1 = Form10.BEditF10(1).Text
  258.             MainRec.B.B2 = Form10.BEditF10(2).Text
  259.             MainRec.B.B3 = Form10.BEditF10(3).Text
  260.             MainRec.B.B4 = Form10.BEditF10(4).Text
  261.             UpdateLabelB
  262.         Case 2
  263.             MainRec.I.B1 = Form10.BEditF10(1).Text
  264.             MainRec.I.B2 = Form10.BEditF10(2).Text
  265.             MainRec.I.B3 = Form10.BEditF10(3).Text
  266.             MainRec.I.B4 = Form10.BEditF10(4).Text
  267.             MainRec.I.B5 = Form10.BEditF10(5).Text
  268.             UpdateLabelI
  269.         Case 3
  270.             MainRec.J.B1 = Form10.BEditF10(1).Text
  271.             MainRec.J.B2 = Form10.BEditF10(2).Text
  272.             MainRec.J.B3 = Form10.BEditF10(3).Text
  273.             MainRec.J.B4 = Form10.BEditF10(4).Text
  274.             MainRec.J.B5 = Form10.BEditF10(5).Text
  275.             UpdateLabelJ
  276.     End Select
  277.     Form10.Hide
  278. End Sub
  279. Sub Command3_Click ()
  280.     Form10.Hide
  281. End Sub
  282. Sub Form_Load ()
  283.     Form10.Left = 300
  284.     Form10.Top = (Screen.Height - Form10.Height) / 2
  285. End Sub
  286.